home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d10 / pitstop.arc / SHOWINFO.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1991-06-01  |  1.9 KB  |  76 lines
  1. 1  DIM C$(500): DIM S$(500):DIM CM(500)
  2. 2  DIM T(100)
  3. 3  DIM I(100): DIM J(100)
  4. 10  'Test for Discity1
  5. 20  CLS
  6. 22  OPEN "I",#1,"overview.dat"
  7. 23  INPUT #1,CS$,SS$,CD$,SD$
  8. 24  CLOSE #1
  9. 30  OPEN "I",#1,"Carry.dat"
  10. 35  INPUT #1,A$,B$,C$,D$,DAY,SM,ED,ML,T,HT,TM,DM,CM
  11. 40  CLOSE #1
  12. 41  OPEN "I",#1,"Route.dat"
  13. 42  INPUT #1,A$,B$,C$,D$,HF,HT,S
  14. 43  CLOSE #1
  15. 45  LOCATE 10,10:PRINT "Your starting point was ";CS$;", ";SS$
  16. 46  PRINT TAB(10);"Your destination was ";CD$;", ";SD$
  17. 50  PRINT TAB(10);"It will take";DAY;" days for your trip"
  18. 55  PRINT TAB(10);"Your total trip mileage will be";TM
  19. 60  LOCATE 20,15: PRINT "Hit any key to continue..."
  20. 75  IF INKEY$ = "" THEN 75
  21. 80  CLS
  22. 82  I = 1
  23. 85  OPEN "I",#1,"fuel.dat"
  24. 90  WHILE NOT EOF(1)
  25. 95   INPUT #1,C$(I),S$(I),CM(I)
  26. 100  I = I+ 1
  27. 105  WEND
  28. 110  CLOSE #1
  29. 115  PRINT "You will refuel as follows"
  30. 116  X = 4
  31. 120  LOCATE 2,2: PRINT "City": LOCATE 2,20: PRINT "State": LOCATE 2,30: PRINT "Miles on tank"
  32. 125  FOR J = 1 TO I-1
  33. 126  LOCATE X,2:PRINT C$(J): LOCATE X,22:PRINT S$(J): LOCATE X,30: PRINT CM(J)
  34. 127  X = X+1
  35. 130  NEXT J
  36. 140  IF INKEY$ = "" THEN 140
  37. 145  CLS
  38. 150  I = 1
  39. 155  OPEN "I",#1,"Sleep.dat"
  40. 160  WHILE NOT EOF(1)
  41. 165   INPUT #1,DAY(I),TR(I),C$(I),S$(I),ED(I)
  42. 170   I = I+1
  43. 175  WEND
  44. 180  CLOSE #1
  45. 185  PRINT "You will need to stop for sleep as follows:"
  46. 186  X = 4
  47. 187  LOCATE 2,2:PRINT "Day #":LOCATE 2,12:PRINT "Hours drive": LOCATE 2,25:PRINT "City":LOCATE 2,50:PRINT "State":LOCATE 2,60:PRINT "Miles driven"
  48. 190  FOR J = 1 TO I-1
  49. 192  TR(J) = INT(TR(J)+0.5)
  50. 195  LOCATE X,2: PRINT DAY(J): LOCATE X,15: PRINT TR(J): LOCATE X,27: PRINT C$(J):
  51. 196  LOCATE X,50: PRINT S$(J):LOCATE X,60:PRINT ED(J)
  52. 197  X= X+1
  53. 200  NEXT J
  54. 205  LOCATE 23,10: PRINT "Hit any key to continue...
  55. 210  IF INKEY$ = "" THEN 210
  56. 220  'Route info
  57. 221  OPEN "I",#1,"Route.dat"
  58. 225  K = 1
  59. 230  WHILE NOT EOF(1)
  60. 235  INPUT #1,CS$(K),SS$(K),CD$(K),SD$(K),HF(K),HT(K),SM(K)
  61. 240  K= K+1
  62. 245  WEND
  63. 250  CLS
  64. 255  PRINT "Your route is as follows"
  65. 260  LOCATE 2,2:PRINT "Starting at":LOCATE 2,20:PRINT"Highway":LOCATE 2,30:PRINT"Ending at": LOCATE 2,50:PRINT "Highway"
  66. 264  X = 4
  67. 265  FOR W = 1 TO K-1
  68. 270  LOCATE X,2: PRINT CS$(W);", ";SS$(W): LOCATE X,25: PRINT HF(W):LOCATE X,32:PRINT CD$(W);", ";SD$(W)
  69. 275  LOCATE X,55: PRINT HT(W)
  70. 280  X = X+1
  71. 285  NEXT W
  72. 287  LOCATE 23,10: PRINT "Hit any key to continue..."
  73. 290  IF INKEY$ = "" THEN 290
  74. 300  CLOSE
  75. 320  CHAIN "pitstop",200
  76.